library(haven)
df <- read_dta('1974 Election Data_with PID and median earnings.dta')
summary(lm1 <- lm(pct_yes_prop11~gratio_avginc_01+college_01+pctunemp_fem_01+
                    pctminority_01+pct65older_01+pct_dem_01+popden_01+area_01, df))
summary(lm2 <- lm(pct_yes_prop11~gratio_medinc_01+college_01+pctunemp_fem_01+
                    pctminority_01+pct65older_01+pct_dem_01+popden_01+area_01, df))
